﻿Public Class BusquedaFalloAlta
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante el alta de la Búsqueda")
        Me.codigo = Utils.Enumeradores.Excepeciones.BusquedaFalloAlta
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante el alta de la Búsqueda"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class BusquedaFalloEditar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la actualización de la Búsqueda")
        Me.codigo = Utils.Enumeradores.Excepeciones.BusquedaFalloEditar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la actualización de la Búsqueda"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class BusquedaFalloBaja
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la baja de la Búsqueda")
        Me.codigo = Utils.Enumeradores.Excepeciones.BusquedaFalloEliminar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la baja de la Búsqueda"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class BusquedaFalloBuscar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la búsqueda de la Búsqueda")
        Me.codigo = Utils.Enumeradores.Excepeciones.BusquedaFalloBuscar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la búsqueda de la Búsqueda"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class BusquedaFalloConsultar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la consulta de Busquedas")
        Me.codigo = Utils.Enumeradores.Excepeciones.BusquedaFalloConsultar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la consulta de Busquedas"
        Me.innerException2 = innerException
    End Sub
End Class
